If SaveFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
Dim savefile As FileStream
Dim savepath As String
savepath = (SaveFileDialog1.FileName)
savefile = New FileStream(savepath, FileMode.Append)
Dim ws As StreamWriter
ws = New StreamWriter(savefile)
For n = 0 To UBound(XX)
Dim str As String = CStr(XX(n)) + "," + CStr(YY(n)) + "," + CStr(ZZ(n))
ws.WriteLine(str)
Next
savefile.Close()
End If

这个应该是可以的，明天有空帮你看看，或者我把我的发你看看