ich habe zu einem älteren Beitrag (1498246) noch eine Frage. finde aber keine Möglichkeit, auf diesen Betrag zu antworten; liegt vermutlich am Alter des Beitrags.
In dem Beitrag wurde mir von Planlos ein lauffähiges Beispiel bereitgestellt.
Auch habe ich keine Möglichkeit gefunden, Planlos eine "private Message" zu schicken.
Das Beispiel läuft aber nicht ganz fehlerfrei.
Noch habe ich nicht herausgefunden, wo der Fehler in meiner auf dem Beispiel aufbauenden Anwendung steckt; es hat aber etwas mit den deutschen Umlauten zu tun.
Ich habe in dem Beispiel von Planlos noch eingebaut, dass mir das Ergebnis von MultiByteToWide in Hex ausgedruckt wird. Dabei habe ich festgestellt, dass bei jedem Aufruf zusätzlich 2 Bytes mit dem Inhalt 00 zurückgegeben werden. Es muss also in der Routine MultiByteToWide ein Fehler enthalten sein; mit meinem "bescheidenen" VBA-Wissen ist es mir jedoch nicht möglich, diesen zu erkennen.
Folgende Daten werden mir zurückgegeben:
48 61 6E 73 61 73 74 72 2E 20 31 39 0A 38 30 36 38 36 20 4D FC 6E 63 68 65 6E 00 00
Mein Aufruf: Debug.Print Text2Hex(MultiByteToWide((b())))
Meine Funktion:
Public Function Text2Hex(ByVal TextString As String) As String
Dim TempString As String
Dim HexString As String
Dim LoopCount As Long
For LoopCount = 1 To Len(TextString)
TempString = Hex$(Asc(Mid$(TextString, LoopCount, 1)))
If Len(TempString) = 1 Then TempString = "0" & TempString
HexString = HexString & Space$(1) & TempString
Next LoopCount
Text2Hex = HexString
End Function
Grüße aus dem SchwabenlandWerner