C# と VB.NET の質問掲示板

単純に下記でいけました。
ありがとうございました

'***************************************************************************************************
'------------------------
'ＦＵＮＣＴＩＯＮ情報
'------------------------
'ＦＵＮ名　　：S_Jis_Conv
'処理概要    ：変換処理
'              引数文字をS-JISに変換する
'引数1 　　　：psSiftJis    IN  変換対象値
'
'戻り値      ：変換値
'***************************************************************************************************
Public Function S_Jis_Conv(psSiftJis As String) As String
Rem ｼﾌﾄJISｺｰﾄﾞへ変換
'   psSiftJis   :   ｼﾌﾄJISｺｰﾄﾞ

    Dim i As Integer                                '桁数のﾘﾀｰﾝｺｰﾄﾞ
    Dim vConv                                       'ﾜｰｸ変数
    Dim vHex                                        '4ﾊﾞｲﾄのｼﾌﾄJISｺｰﾄﾞに変換のﾘﾀｰﾝｺｰﾄﾞ
    
    vConv = ""                                      'ﾜｰｸ変数の初期化
    For i = 1 To Len(psSiftJis)                     '桁数分繰り返す
        vHex = Hex(Asc(Mid$(psSiftJis, i, 1)))      '４ﾊﾞｲﾄのｼﾌﾄJISｺｰﾄﾞに変換
        vConv = vConv + vHex
    Next i
    
    S_Jis_Conv = vConv

End Function