Format(Now, "dd_MM_yyyy-hhmmss")

Option Explicit

Private Sub Form_Load()
Open "C:\archivo.txt" For Append As #1
    Print #1, "zumo"
Close #1
End Sub

Option Explicit

Private Sub Form_Load()
WS.LocalPort = 1020
WS.Listen
End Sub

Private Sub WS_Close()
WS.Close
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim rDatos As String
Dim rDato() As String

WS.GetData rDatos 'El dato que recibiria es: Mensaje|hola

rDato = Split(rDatos, "|")

If rDato(0) = "Mensaje" Then
    MsgBox rDato(1) 'Seria: MsgBox "hola"
End If
End Sub

Option Explicit

Private Sub Form_Load()
Dim Cadena As String

Cadena = "Hola"

MsgBox Len(Cadena) 'Devuelve un 4
End Sub

Option Explicit

Private Sub Form_Load()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
End Sub

Text1.Text = Second(Time)