請問壹個VB轉換問題

Dim sBin

昏暗的謝克斯

Dim BinData

const s 1 = " 00001001001011111000 "，s2 = "0125A4936DB7FEC8 "

公共函數HexToBin(ByVal sHex As String)作為字符串

Dim i為整數，sBin為字符串

sHex = UCase(sHex)

對於i = 1到Len(sHex)

sBin = sBin & ampMid(s1，InStr(1，s2，Mid(sHex，I，1))，4)

接下來我

HexToBin = sBin

BinData = sBin

結束功能

私有子命令1_Click()

sHex = Text1

打電話給赫克托賓

Text2 = BinData

末端接頭