Public Function BinConvert(textdata As String) As String

Dim i As Integer
Dim chrdata As String

BinConvert = ""

For i = 1 To Len(textdata)

chrdata = Mid(textdata, i, 1)

If chrdata <> Chr(13) Then

If chrdata = "$" Then

If IsHex(Mid(textdata, i + 1, 2)) Then
chrdata = Mid(textdata, i + 1, 2)
BinConvert = BinConvert & Chr(Val("&H" + chrdata))
i = i + 2
Else
BinConvert = BinConvert & chrdata
End If
Else
BinConvert = BinConvert & chrdata
End If
End If
Next i

End Function