VBA로 제작된 스크립트를 VB2010으로 바꾸고 있는데 잘안된당 ㅠㅠ

이건 주식에서 트레이딩을 하기 위한 VBA스크립트야.

Imports XA_SESSIONLib
Imports XA_DATASETLib

\' 시세처리
Private Sub Request_t1101()
    
    \' 기존에 걸어놓은 실시간을 해제한다.
    If XAReal_S3_ Is Nothing Then
    Else
        Call XAReal_S3_.UnadviseRealData
    End If
    If XAReal_H1_ Is Nothing Then
    Else
        Call XAReal_H1_.UnadviseRealData
    End If

    \' 객체를 생성한다.
    If XAQuery_t1101 Is Nothing Then
        Set XAQuery_t1101 = CreateObject(\"XA_DataSet.XAQuery\")
        XAQuery_t1101.ResFileName = Sheet1.Cells(4, 8) & \"\\t1101.res\"
    End If
    
    \' 데이터 세팅
    Call XAQuery_t1101.SetFieldData(\"t1101InBlock\", \"shcode\", 0, Sheet2.Cells(2, 3))
    
    \' 데이터 요청
    If XAQuery_t1101.Request(False) = False Then
        MsgBox \"전송오류\"
    End If

End Sub

위에 진하게 칠해진 Set XAQuery_t1101 = CreateObject(\"XA_DataSet.XAQuery\")

을 VB용으로 바꿔 쓴다면 뭐라고 써야되???