Dim readValue As String
        Dim NewValue As String
        Dim Nesta As String
        Dim Nesta2 As String
        readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\SAMP", "gta_sa_exe", Nothing)
        Dim withoutParts As String = Replace(readValue, "\gta_sa.exe", "")
        NewValue = Replace(withoutParts, "\", "/")
        Nesta = "/samp.exe :7777 dokipeder"
        Nesta2 = NewValue & Nesta
        Shell(Nesta2)