Intanto la variabile STX non ha alcun contenuto ... quindi e' inutile inserirlo (anzi, non comprendo il senso di questa variabile nel tuo programma).

Inoltre, ed e' la cosa piu' grave, e' che hai dichiarato

Private vbCr As String

e quindi hai "nascosto" il valore della costante vbCr che e' quello che ti serve.
In questo modo, essendo vbCr vuota, non invii il return alla stampante e probabilmente il problema e' proprio quello.

Anche le altre variabili non servono (perche' le hai inserite?) ... quindi, elimina tutto il blocco

Private ETX As String
Private STX As String
Private vbCr As String
Private ETB As String
Private ESC As String

e prova