fichier en vb

slt
j'ai fait une fonction qui extrait les mots séparés par un espace pour ensuite l'utuliser pour un fichier et afficher les mots dans un text Box indépendemment mais j'ai rencontré un ptit pbm voici le code.

Public Function extraire(expression As String, debut As Integer) As String
Dim sc As String
Dim fin As Integer

fin = InStr(1, expression, " " )
If (fin <> 0) Then
sc = Mid(expression, debut, fin)
Else
sc = Mid(expression, debut, Len(expression))
End If
End Function

le pbm n'est pas dans la fonction car ça fonctionne à 1000% mais lors de l'éxécution il me dit type d'argument byRef incompatible et colore le A en bleu lors de l'appel de la fonction
je ne sais pas pourquoi ????
Private Sub Command1_Click()
Dim L, A, B, C As String
A = "salut anis"
MsgBox A
sc = extraire(A, 1)
MsgBox sc
end sub