VB og VBscript send parameter

har denne kode i VB6
VB

Private Sub Command1_Click()
Dim Vdisplayname As String
Dim bruger
bruger = "Administrator"
ScriptControl1.AddCode hentkode(App.Path & "\getvalue.vbs")
Vdisplayname = ScriptControl1.Eval("test(" & bruger & ")")
Text1.Text = "Fra exchange: " & Vdisplayname
End Sub

Function hentkode(filnavn As String) As String
  Dim fso As FileSystemObject
  Dim ts As TextStream
 
  Set fso = New FileSystemObject
  Set ts = fso.OpenTextFile(filnavn, ForReading)
  hentkode = ts.ReadAll
  ts.Close
End Function



VBS:
Function test(testvar)
test = testvar & " Hej fra Vbs"
End function

Får denne fejl: Runtime error 13
Type Mismatch: 'test'
?