Yes, here you go......

In the VB module I declared the functions

Declare Sub csub Lib "rlpolk.dll" (ByVal s_vinin As String, ByVal s_vinout As String, ByVal i_bypass As Integer)
Declare Function v_o_d Lib "rlpolk.dll" (ByVal s_vinout As String, ByVal s_opout As String) As Integer


Then I am making a call to the function by a button click

Private Sub Command1_Click()
Dim s_vinin As String * 25
Dim s_vinout As String * 108
Dim s_opout As String * 155


Dim i_bypass As Integer
Dim i_cnt As Integer
'-------------------------------
i_bypass = Asc("b")
s_vinin = " 2HGEJ1122RH547354"

Call csub(s_vinin, s_vinout, i_bypass)
Call v_o_d(s_vinout, s_opout)
MsgBox s_vinout
MsgBox s_opout


End Sub