怎么用VB编程从Excel或记事本中读取并应用数据（点号和三维坐标）

从EXCEL中读取数据可以使用EXCEL对象:
Dim XLApp As New Excel.Application
Dim Wrk As Excel.Workbook
Dim Sht As Excel.Worksheet
Dim Rng As Excel.Range

Dim ArrayCells() As Variant
Set XLApp = CreateObject("Excel.Application")
Set Wrk = XLApp.Workbooks.Open(App.Path & "\123.xls", False, True)
Set Sht = Wrk.Worksheets("IMA")
msgbox Sht.Cells(1, 1) '显示A1格内容

记事本读写要看文件资料格式，例如循环读出全部文件内容到lines：
Open "c:\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, NextLine
lines = lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1