Не могу заставит работать переменную - VB

Формулировка задачи:

Здравствуйте. Сразу оговорюсь что в программировании я нуб. Проблема в следующем, решил я для автоматизации процесса раздачи wifi с ноутбука написать маленькую програмку в Visual Basic и в техническом плане она работоспособна, но для полного функционала не могу заставить ее вставлять значение переменной имени и пароля, точка доступа всегда создается с именем stroka1, а должна создаваться со значением этой переменной

                    Листинг программы
                
 
                        
                          
                    
Dim stroka1 As String
Dim stroka2 As String
 
Private Sub cmdStart_Click()
Shell "cmd.exe /c netsh wlan set hostednetwork mode=allow & netsh wlan set hostednetwork mode=allow ssid = [B]stroka1 [/B]key = [B]stroka2 [/B]keyUsage=persistent & netsh wlan start hostednetwork", vbHide
End Sub
 
Private Sub cmdStop_Click()
Shell "cmd.exe /c netsh wlan stop hostednetwork", vbHide
End Sub
 
Private Sub Form_Load()
stroka1 = txtName.Text
stroka2 = txtPass.Text
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Shell "cmd.exe /c netsh wlan stop hostednetwork", vbHide
End Sub

Решение задачи: «Не могу заставит работать переменную»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Const CMD = "cmd.exe /c netsh wlan set hostednetwork mode=allow & netsh wlan set hostednetwork mode=allow ssid = #ssid# key = #key# keyUsage=persistent & netsh wlan start hostednetwork"
 
Private Sub cmdStart_Click()
Dim s As String
  s = Replace(CMD, "#ssid#", stroka1)
  s = Replace(s, "#key#", stroka2)
  Shell s, vbHide
End Sub