' ****************************************
' вариант 1
Dim i%
Text2.Text = ""
For i =  0  To Text1.Lines.Count -  1 
  Text2.Lines.Add Left(Text1.Lines(i), InStr(Text1.Lines(i), ".") -  1 )
Next i


' ****************************************
' вариант 2
Dim re, s$
s = Text1.Text
Set re = CreateObject("VBScript.RegExp")
With re
  .Global = True
  .Multiline = True
  .Pattern = "\..*$"
  s = .Replace(s, "")
End With
Set re = Nothing
Text2.Text = s