Dim readValue As String
Dim NewValue 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, "\", "/")
Dim Nesta As String
Dim Nesta2 As String
Nesta = "/samp.exe 95.178.183.124:7777 dokipeder"
Nesta2 = NewValue & Nesta
Shell(Nesta2)