Hab gerade diese Zeile rauskommentiert:
empfang = StrConv(sData, vbUnicode)

Jetzt funktionierts einwandfrei! Was macht den dieser Befehl StrConv genau?