Private Sub writeToFile(ByVal filePath As String, ByVal data As String) End Sub
Private Sub writeToFile(ByVal filePath As String, ByVal data As String) Dim file As StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter(filePath, True) file.WriteLine(data) file.Close() End Sub