comma separators after hex conversion?

[jklein]

Hi all,
I'm using a VB hex conversion module I found on Mr Excel that's working well, but I can't figure out how to put separators in between each two hex characters. I need to paste the results into a txt file that requires the comma separators. I did find one webpage that puts % between every two characters, which then allows me to use the find/replace function, but if there's a way to put a % in there I would think a comma is possible, too.

The VB script I'm using is:
Function WEPConv(str As String) As String
Dim i As Long
For i = 1 To Len(str)
WEPConv = WEPConv & Hex(Asc(Mid(str, i, 1)))
Next i
End Function

The html-based hex conversion web page I'm referencing is:
http://www.mikezilla.com/exp0012.html

Thanks for any suggestions,
Jeff K.

 

[Andrew Poulsom]

Like this?

Function WEPConv(str As String) As String
    Dim i As Long
    For i = 1 To Len(str)
        If i = 1 Then
            WEPConv = Hex(Asc(Mid(str, i, 1)))
        Else
            WEPConv = WEPConv & "," & Hex(Asc(Mid(str, i, 1)))
        End If
    Next i
End Function

 

[jklein]

Yup, that's it!

Thanks a lot

Jeff K.