vb6.0中如何将如原始数据为string型的(二进制)"110110101",转换成16进制，在textbox中输出

数据为string型的(二进制)"110110101"？

我只提供把字符串转换成十六进制，你说的我不明白。
Dim i As Integer
For i = 1 To Len(s)
Print Hex(Asc(Mid(s, i, 1)))
Next i

用途：将二 进 制转化为十六进制
' 输入：Bin(二 进 制数)
' 输入数据类型：String
' 输出：BIN_to_HEX(十六进制数)
' 输出数据类型：String
' 输入的最大数为2147483647个字符
'调用举例：text1.text=BIN_to_HEX("110110101")

Public Function BIN_to_HEX(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 4 <> 0 Then
Bin = String(4 - Len(Bin) Mod 4, "0") & Bin
End If

For i = 1 To Len(Bin) Step 4
Select Case Mid(Bin, i, 4)
Case "0000": H = H & "0"
Case "0001": H = H & "1"
Case "0010": H = H & "2"
Case "0011": H = H & "3"
Case "0100": H = H & "4"
Case "0101": H = H & "5&qu