Public Function Carmap_SearchCabin(ByVal tag As String, Optional ByVal _
  to_return As Short = 1) As String
        If bCabinLoaded = True Then
            Select Case to_return
                ...
                Case 3
                    For i As Short = 0 To cabin.Count
                        If tag = cabin(i).Tag Then
                            [u]Return ??????????
                            ' Hier sollte die Pos. im Array stehen
                            Exit Function
                        End If
                    Next
                ...
            End Select
        End If
        Return -1
    End Function