SoloCodigo

Hola amigos como estan tengo un problema, tengo una validacion para un Text Box pero cuando le aplico la propiedad Multiline=True la validacion no me funciona, la cual es la sigiente:

Select Case KeyAscii
Case Asc(" ")
            If Len(TxtDirProv.Text) = 0 Then
            KeyAscii = 0
        Else
        If Mid(TxtDirProv.Text, Len(TxtDirProv.Text), 1) = " " Then
            KeyAscii = 0
        End If
        End If

la cual me sirve para que no deje espacio en blanco al comienso y despues de un espacio no pueda hacer otro

Bueno no tengo nada mas que preguntar por los momentos agradesco de su ayuda Ok.