I think easier yet to use something similar on this code,
not sure though
Sub ParseBB()
Dim a, b, s, h, t As String
Dim pos As Long
Dim ar() As String
s = "G4;$$.1000}[312.98{\H0.71x;\G4;$$2.54"
a = "$$"
ar = Split(s, a)
s = ar(1)
While Left(s, 1) Like "[0-9]" Or Left(s, 1) Like "."
a = a & Left(s, 1)
s = Right(s, Len(s) - 1)
Wend
s = ar(2)
b = "$$"
While Left(s, 1) <> ""
b = b & Left(s, 1)
s = Right(s, Len(s) - 1)
Wend
MsgBox "A : " & a & vbNewLine & _
"B : " & b
End Sub
~'J'~