Private Sub Command1_Click()
ws.RemoteHost = Text1.Text
ws.RemotePort = Text2.Text
ws.Close
ws.Connect
End Sub

Private Sub Command2_Click()
ws.Close
End Sub

Private Sub ws_Connect()
Label1.Caption = ws.RemoteHostIP
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    Dim strUserName As String

    strUserName = String(100, Chr$(0))
    GetUserName strUserName, 100
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

    MsgBox strUserName
    End
End Sub

tamaño = Len(Text1.Text)
b = 0
For a = 0 To tamaño
    If Left(Text1.Text, a) = "." Then
        b = b + 1
    End If
Next

If b = 3 Then MsgBox "tan 3 puntos"