Dim userdir As String = getuserdir()
 
Public Function getuserdir() As String
        Return _ removebackslash(System.Environment.GetEnvironmentVariable( _
          "USERPROFILE"))
    End Function
 
Dim SVC_BAK As String = userdir + "\services.reg"
 
 cache = ("regedit /e " & SVC_BAK & "  _" & _
   "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services") 
 
 Shell(cache, AppWinStyle.Hide, True)

(Visual Basic .net - Version 2008)