'Teniendo en cuenta que Text1 es donde vamos a buscar la palabra que esta escrita en el Text2

    Dim i as Long

    For i = 1 To Len(Text1)
        If Mid(Text1, i, Len(Text2)) = Text2 Then
            MsgBox Mid(Text1, i, Len(Text2)) & " - " & i
        End If
    Next i

    'La posicion de la palabra que encontraste seria la variable i, y la longitud es igual a la del Text2...

   Text1 = Replace(Text1, Text2, Text3)

   'Text1 es donde vamos a reemplazar la palabra
   'Text2 es la palabra que queremos reemplazar
   'Text3 es la palabra que se va a poner en lugar de la del Text2

Public TuVariable As String '(o lo que quieras)

    Shell "cmd", vbNormalFocus
    DoEvents
    SendKeys "ipconfig"
    DoEvents
    SendKeys "{enter}"

Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Programa /t REG_SZ /d C:\MiPrograma.exe"