Office: (Office 2016) Teile aus einem qrcode string auslesen

Hallo zusammen

Ich habe da eine für mich knifflige Aufgabe

Ich scanne einen SwissQRCode in ein Textfeld.
Danach entferne ich alle Umbrüche und Leerzeichen.
Das habe ich soweit hinbekommen.

Private Sub qrcode_AfterUpdate()

Dim VQRCode As String

If IsNull(Me.qrcode) Then

Else
Dim Ergebn As String
Dim Ergebn2 As String
Dim DatenString As String

DatenString = Nz(Me.qrcode)
Ergebn = Replace(DatenString, Chr(10), "")
Me.qrcode = Ergebn

Me.Refresh
End If
End Sub

Nun habe ich irgendwo eine IBAN Nummer die immer mit CH######## anfängt
zb. SPC02001 +CH 18 Stellen
Dann habe ich Irgendwo eine Referenz Nummer die vornedran mehrere Codes haben kann.
Zb. CHSCOR oder CHQRR +Code 27 Stellen
Der häufigste ist CHQRR aber es könnte auch andere geben.
Die Referenz muss nicht nur aus Zahlen bestehen.
Kann auch so aussehen: RF8940001E2025041....

Das möchte ich gerne in 2 TextFelder auslagern TXTIban und TXTref
Leider gelingt mir das nur Teilweise.

kann mir jemand helfen, wie ich diese 2 Strings extrahieren kann
Bei der Referenz müsste der Anfangs Code variabel evtl. durch ein select ausgewählt werden und ergänzt werden können. Auch ist der einmal 5 stellen und einmal 6 Stellen.

Vielen dank an die Cracks

 

Hallo,
schau Dir mal die Funktionen InStr(string) und Mid(string). Instr sucht innerhalb Strings und mit Mid kannst Du Stücke ausschneiden.