Private Sub Command1_Click()
Dim c, m
m = Text2.Text
c = Text1.Text
If (Text1.Text = "") Then
MsgBox "Enter Computer Name"
Text1.SetFocus
ElseIf (Text2.Text = "") Then
MsgBox "Enter Message"
Text2.SetFocus
End If
Str = "net send " & c & " " & m
Shell (Str)
End Sub