Parse hex string into bytes

I am already parsing a string but currently I am using a delim to split it. I would like to just split per byte so I can get rid of the delim.

Public Function ParseToArray(strText As String, strArray() As Byte) As Long
Dim intPos As Long
Dim strDelim As String
ReDim strArray(10) As Byte
strText = Trim(strText)
strDelim = "|"
intIndex = 0
Do While strText <> ""
If intIndex > UBound(strArray()) Then
ReDim Preserve strArray(intIndex + 20)
End If
intPos = InStr(1, strText, strDelim)
If intPos > 0 Then
strArray(intIndex) = "&H" & Left(strText, InStr(1, strText, strDelim) - 1)
strText = Trim(Mid(strText, InStr(1, strText, strDelim) + 1))
Else
strArray(intIndex) = "&H" & strText
Exit Do
End If
intIndex = intIndex + 1
Loop
ReDim Preserve strArray(intIndex) As Byte
End Function

That is my current parsing code. It parses a string such as "E9|25|4F|32|FF". I wanna do it ""E9254F32FF" but the result split into bytes with the &H.