Private Sub Command1_Click()
Dim st As String, z As String, i As Integer, a As Single, b As Single
Open "D:\1.txt" For Input As #1 '假设1.txt文件放在D盘
Do Until EOF(1)
  Line Input #1, z
  i = InStr(z, "X")
  If i Then
    a = Val(Mid(z, i + 1)) + 2
    b = Val(Mid(z, InStr(z, "Y") + 1)) + 3
    z = Left(z, i) & Format(a, "###0.00") & "Y" & Format(b, "###0.00")
  End If
  st = st & z & vbCrLf
Loop
Close #1
Open "D:\2.txt" For Output As #1 '2.txt文件保存在D盘
Print #1, st
Close #1
End Sub