Werte in Array suchen und weiterverwenden

Sub Auto_open()
Dim strUserklein, strUsergross As String
Dim myTime As Date
strUserklein = Environ("Username")
strUsergross = UCase(strUserklein)
'If Range("Auswahl_Montage").Value = "Montage ausblenden" Then Call Ausblenden_Montage
'If UCase(strUsergross).Value = "TZ" Then Call Schützen_Montage
''''''''''If UCase(Environ("Username")) = "RKR" Then Call Schützen_Montage
''''''''''If UCase(Environ("Username")) = "TZ" Then Call Schützen_Automation
Dim arr As Variant
Dim irow As Integer
arr = Range("b6:g6")
irow = Application.Match(strUsergross, arr, 0)
If Err > 0 Then
MsgBox "Name des angemeldeten Systems nicht gefunden!"
Else
?if ? = "Beispiel" then Call Unterprogramm
'''' MsgBox "An " & irow & " .Stelle gefunden"
End If
End Sub