VBScript - Probleme mit bestimmten Zeichen

Dim WshShell, oShellLink, WSHNetwork, Last2Letters, LenString

set WSHNetwork = CreateObject("WScript.Network")  
set WshShell = WScript.CreateObject("WScript.Shell")  
set oShellLink = WshShell.CreateShortcut("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\link.lnk")  

LenString = Len(WSHNetwork.ComputerName)
Last2Letters =  Right(WSHNetwork.ComputerName, LenString - 8)
msgbox(Last2Letters)


oShellLink.TargetPath = "\\server\freigabe$\programm.exe /" & HexToDec(Last2Letters) - 50  
oShellLink.WindowStyle = 1
oShellLink.Hotkey = ""  
oShellLink.IconLocation = "\\server\freigabe$\programm.exe, 0"  
oShellLink.Description = "Zugang zum Server"  
oShellLink.WorkingDirectory = "server\freigabe$"  
oShellLink.Save


Function HexToDec(strHex)
  dim lngResult
  dim intIndex
  dim strDigit
  dim intDigit
  dim intValue

  lngResult = 0
  for intIndex = len(strHex) to 1 step -1
    strDigit = mid(strHex, intIndex, 1)
    intDigit = instr("0123456789ABCDEF", ucase(strDigit))-1  
    if intDigit >= 0 then
      intValue = intDigit * (16 ^ (len(strHex)-intIndex))
      lngResult = lngResult + intValue
    else
      lngResult = 0
      intIndex = 0 ' stop the loop  
    end if
  next

  HexToDec = lngResult
End Function

"\\server\freigabe$\programm.exe \101"  

"\\server\freigabe$\programm.exe" /101