MsgBox "Dia: " & Format(Date, "DDDD") & " " & Format(Date, "DD")
MsgBox "Mes: " & Format(Date, "MM") & "(" & Format(Date, "MMMM") & ")"
MsgBox "Año: " & Format(Date, "YY") & " , " & Format(Date, "YYYY")

Msgbox1: "Dia: Sabado 30
Msgbox2: Mes: 04 (Abril)
Msgbox3: Año: 11 , 2011

dim Identificador as string
dim Datos as string

Winsock1.GetData Datos

Identificador = Left(Datos, 8)
[b]Datos = Right(Datos, Len(Datos) - 8)[/b] 'Le borro a "Datos" los primeros 8 digitos que corresponden al indentificador

If Identificador = "*Teclas*" Then
        Archivo = Archivo & Datos
        RichTextBox1.Text = Archivo
End If

Dim buf As String * 1024
Open App.path & "\Archivo.txt" For Binary As #3
    Do While EOF(3) = False
        DoEvents
        Get #3, , buf
        Winsock1.SendData "*Teclas*" & buf
    Loop
Close #3

Dim Texto As String
Dim Identificar As String
Winsock1.GetData Texto

Identificar = Left(Texto, 6)

If Identificar = "Teclas" Then
    Case "Teclas"
        Archivo = Archivo & Texto
        If Len(Archivo) >= Largo Then
            RichTextBox1.Text = Archivo
            Largo = 0
        End If
    End Select
End If

Dim buf As String * 1024
Dim Todox As String
Open "C:\Archivo.txt" For Binary As #1
    Do While EOF(1) = False
        DoEvents
        Get #1, , buf
        Todox = Todox & buf
    Loop
Close #1
Winsock1.SendData "Teclas" & Todox