vbs syntax error: 800A03EE ')' expected

vbs syntax error: 800A03EE ')' expected

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey =
Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",
True)
key.SetValue(name, path)
End Sub
I try to execute this in a file called 'addcurrentkey.vbs' But it says ')'
is expected in row 1. Character 38.