Dim Var As String * 200, Var2 As String
    Var = "Esto es una varaible de 200 caracteres de largo."
    MsgBox Var
    Var2 = Trim(Var) 'Var2 va a ser igual a Var solo que sin los espacios
    MsgBox Var2

'Lo envias asi
WS.SendData destino & "*" & mensaje

'Y lo recibes asi
Tripas = Split(Datos, "*")
'Tripas(0) es el destino y Tripas(1) es el mensaje

Variable = Replace(Variable, "32", "")

Screen.Width / Screen.TwipsPerPixelX & "-" & Screen.Height / Screen.TwipsPerPixelY

    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
    End If