Function GetProcessFilename(ByVal ModuleName As String) As String
      Dim sPath$, lPath&
      Dim hModule&, r&

  lPath = MAX_PATH
  sPath = String$(MAX_PATH, 0)
  
  hModule = GetModuleHandle(ModuleName)
  
  r = GetModuleFileName(hModule, sPath, lPath)
  
  If r Then
    GetProcessFilename = Left$(sPath, r)
  End If
End Function

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\<appname>

Debug.Print Environ("PATH")

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths

  ' Reemplaza Space por HendriX
  '
  sData = Replace$(sData, "Space", "HendriX")

Function ReplaceStr(ByVal Text As String, ByVal Find As String, ByVal NewStr As String) As String
         Dim lPos&

  lPos = InStr(1, Text, Find)

  If lPos Then
    Mid(Text, lPos, Len(Find)) = NewStr
    ReplaceStr = Text
  End If
End Function

      Dim lPos&, sFind$

  sFind = "Space"
  lPos = Instr(1, txtData, sFind)

  If lPos Then
    txtData.SelStart = lPos
    txtData.SelLength = Len(sFind)
  End If

Private Sub txtData_LostFocus()
  If Not IsNumeric(txtData) Then
    Call MsgBox("Tenés que ingresar un valor numérico", vbExclamation)
    txtData = vbNullString
  End If
End Sub

Private Sub txtNum_Validate(Cancel As Boolean)

  If Not IsNumeric(txtData) Then
    Call MsgBox("Tenés que ingresar un valor numérico", vbExclamation)
    txtData = vbNullString
    Cancel = True
  End If
End Sub

    For I = 1 To Len(strData)  Step 2

    Next

Private Sub txtData_LostFocus()
  If Not IsNumeric(txtData) Then
    Call MsgBox("Tenés que ingresar un valor numérico", vbExclamation)
    txtData = vbNullString
  End If
End Sub