Errore di Ubound in Arary

[buchwald]

Salve,

Non capisco perché da questo codice sottostante Visual Basic mi dà errore sull'Array di UBound, mi dice "Prevista matrice" e l'errore di debug è quello rosso. Io dovrei vedere se il programma riconosce qualche lettera dopo la virgola.... Mi potete aiutare a correggere...

Private Sub Command2_Click()
    Dim Point As String
    Dim Arr As VBA.VbVarType
    Dim Rename As String
    
    Arr = vbArray
    
    Point = txtLett.Text
    Arr = Split(Point, ",")
    Rename = Arr(UBound(Arr,  1))
    
    If Rename <> "" Then
        If UBound(Arr, 1) = 0 Then
            Print 0
        End If
    End If
End Sub

Ciao, Buchwald è .