If you don't want to allow spaces only then you must use Trim function:
Code:
If Len(Trim(Text19.Text)) = 0 Then
    MsgBox "..."
    '...
End If

'or simply Trim only

If Trim(Text19.Text) = "" Then
    MsgBox "..."
    '...
End If