Organizacion de vectores en VB6

[juancho056]

Hola a todos!!

Estoy implementando un programa entre VB6 y un microcontrolador, lo que estoy haciendo es que envio una trama al micro y este me responde, Bien hasta ahi.

Ahora bien los que recibo por serial es

Buffer= MSComm1.Input                    los que seria "02030601ff02b800220500"

Necesito crear un ciclo o una funcion que me organice el vector para que quede asi

"02-03-06-01-ff-02-b8-00-22-05-00"

se que es un procedimiento de pura logica, llevo ya un rato largo y no lo logro, si alguien me puede echar una mano estare muy agradecido 

[PalitroqueZ]

una posible solución.

Código: [Seleccionar]

Private Sub Command1_Click()
    Text2.Text = sAcomodarCadena(Text1.Text)
End Sub

Private Sub Form_Load()
    Text1.Text = "02030601ff02b800220500"
End Sub

Function sAcomodarCadena(sTramas As String)
Dim sCadena As String: Dim t As Integer
    For t = 1 To (Len(sTramas)) Step 2
        sCadena = sCadena & Mid$(sTramas, t, 2) & "-"
    Next t
    sCadena = Left$(sCadena, 32)
    sAcomodarCadena = sCadena
End Function


[juancho056]

Hola, PalitroqueZ!!

Exactamente esa era la solucion que requeria, yo le intente y le intente... pero bueno estamos para aprender.

Muchisimas Gracias