Поиск в документе word через vba значения после и запись в значения в переменную

Application.ScreenUpdating = False
    Set objDoc98 = objWord.Documents.Open("\\d\источник\text.txt")
    objWord.Visible = True
    objWord.Activate
    objWord.ActiveWindow.View.ReadingLayout = False
    With objWord.Selection
            .Find.Text = "^LT-"
            .Wrap = wdFindStop
                If .Found = True Then ...

Open "\\d\источник\text.txt" For Input As 1
Dim s$
s = Input$(LOF(1), 1)
Close 1
Dim a$()
a = Split(s, "^LT-")
Dim v As Long
v = Val(a(1))
MsgBox v

  Set objDoc98 = objWord.Documents.Open("\\d\источник\text.txt")
  Dim s$
  s = objDoc98.Range.Text
  Dim a$()
  a = Split(s, "^LT-")
  Dim v As Long
  v = Val(a(1))
  MsgBox v

  Set objDoc98 = objWord.Documents.Open("\\d\источник\text.txt")
  Dim s$
  s = objDoc98.Range.Text
  Dim a$()
  a = Split(s, "^LS-")
  Dim a_LS&()
  ReDim a_LS(1 To UBound(a))
  Dim i&
  For i = 1 To UBound(a)
    a_LS(i) = Val(a(i))
    MsgBox a_LS(i)
  Next i

a = Split(s, "^LS")

Dim a$()
  a = Split(s, "^LS")
  Dim a_LS$() 'a_LS&()
  ReDim a_LS(1 To UBound(a))
  Dim i&
  For i = 1 To UBound(a)
    if  Val(a(i))>=0then
      a_LS(i) ="+" & Val(a(i))
    else
      a_LS(i) = Val(a(i))
    endif
    MsgBox a_LS(i)
  Next i

отдельная_переменная=UBound(a)