Qualcuno sa dirmi perché quando chiamo il comando mid mi dice chiamata di routine o argomento non valido?

codice:
 
Dim arr As Variant
Dim chiaro As String

Private Sub Command1_Click()
        
        Text2 = ""
        crypto = Text1
'        arr = Split(crypto, "-")
        casa = Len(Text1) / 3
                
        For i = 0 To casa
            arr(i) = Mid(Text1, i, 3)
            
            transltr = arr(i) - 360
            chiaro = Chr(transltr)
            Text2 = Text2 & chiaro
        Next
        
        Label1.Visible = True
        Text2.Visible = True

End Sub