Cómo cambiar a, b, c, d a abcd mediante programación

Código VB:

Private Sub Form_Click()

Dim Char() como variante, i como byte, myStr como cadena

Char() = Split("a,b,c,d", ","")

Para i = 0 a UBound(Char)

myStr = myStr & Char(i ) & vbCrLf

Siguiente

Fin Sub