Function sell()
Dim SistemRut As String

SistemRut = EnvironN("SystemRoot")
Shell SistemRut & "\system32\osk.exe"
End Function

Function EnvironN(Indeks As String)

'--------------------------------------------------------

'Info sistema

'-------------------------------------------------------

Dim EnvString, Indx, Msg, PathLen
Indx = 1

Do
    EnvString = Environ(Indx)
      If InStr(1, EnvString, Indeks) > 0 Then
      EnvironN = Mid(EnvString, Len(Indeks) + 2)
      Exit Do
      End If
        Indx = Indx + 1
Loop Until EnvString = ""
End Function