Praticamente puoi fare una cosa del genere:
codice:
Dim stringa As String
If Len(stringa) > 4 Then
    stringa1 = Mid(stringa, 1, 4)
    stringa2 = Mid(stringa, 5, Len(stringa) - 4)
End If
stringa = stringa1 & Chr(13) & stringa2
dove la variabile stringa è la tua parola goodbye..

ciao