Visual Basic - Verificar espacios en un registro

hola, tengo la siguiente funcion para que un usuario no deje un campo en blanco:

Function Nombres()
Dim i As Integer
Dim s As String
SinNombre = False
If Me.Data1.Recordset.EOF Or Me.Data1.Recordset.BOF Then
Else
Me.Data1.Recordset.MoveFirst

For i = 0 To Me.Data1.Recordset.RecordCount - 1

If IsNull(Me.Data1.Recordset.Fields("Nombre Profesor")) Or Me.Data1.Recordset.Fields("Nombre Profesor") = "" Then
SinNombre = True

End If

Me.Data1.Recordset.MoveNext
Next i
End If
If SinNombre = True Then
Beep
MsgBox "Debe llenar el campo Nombre .", vbCritical, "Error "
Else
End If

End Function

pero si el pone espacios en ese campo no sucede nada, como podria hacer para que tambien me verificara si hay nada mas que espacios.
gracias

Antes de comprobar los datos podrías eliminar los espacios del principio y el final con la función Trim, de esta manera si sólo ha metido espacios en blanco la cadena quedará vacia. Algo así:

cadena = Trim(cadena)

Si no te gusta puedes comprobar que una cadena está formada únicamente por espacios de esta forma:

if cadena = space(len(cadena)) then
'La cadena sólo tiene espacios
else
'La cadena tiene algo más que espacios
end if