删除text1里英文字符

我要编一个VB程序，在Text1中以显示了：1.apple
2.banana
3.orange
4.red
5.rom （长度不确定）……
请问，如何将数字后的英文删除后显示在Text2中？

即：1.
2.
3.
4.
5.

谢谢大家了

'这实际上是删除所有位于“.” 和“vbCrLf”之间的字符
'vbCrLf 是 VB 中的回车换行符
'用我将编写的 DelStr 函数可以很好地解决这个问题，例子如下：

Private Sub Form_Load()
Text1.Text = "1.apple" & vbCrLf & "2.banana" & vbCrLf & "3.orange" & vbCrLf & "4.red" & vbCrLf & "5.rom"
End Sub

Private Sub Command1_Click()
Text2.Text = DelStr(Text1.Text, ".", vbCrLf, True, True)
End Sub

Public Function DelStr(nStr As String, StrQ As String, StrH As String, Optional SaveQ As Boolean, Optional SaveH As Boolean) As String
'删除 nStr 中的位于 StrQ 和 StrH 之间的字符
'如果 StrH 为空：删除 StrQ 后的所有字符，类似于 Left() 函数
'如果 StrQ 为空：删除 StrH 前的所有字符，类似于 Right() 函数
'如果 StrQ 和 StrH 同时为空：不删除任何字符
'SaveQ 为真：保留 StrQ 字符
'SaveH 为真：保留 StrH 字符

Dim S As Long, S1 As Long, sQ As Long, sH As Long, NewStr As String

If nStr = "" Then Exit Function