Visual Basic - Funcion para encontrar caracter en cadena

Hola

Ocupo saber una funcion que detecte un espacio en blanco dentro de una cadena y que regrese la posicion del espacio en blanco

Gracias por su atencion

Pueba con esta instruccion :

x = InStr(PosicionInicial, Cadena , Cadena a buscar)

te devuelve la posicion donde se encontro.

Public Function espacio(car As String) As Integer
Dim i, sw As Integer
i = 0
sw = 0
Do While Len(car) > 0
i = i + 1
If Left(car, 1) = " " Then
sw = 1
Exit Do
End If
car = Right(car, Len(car) - 1)
Loop
If sw = 0 Then
espacio = 0
Else
espacio = i
End If
End Function