Public Class Form1
    Private Sub BTzapiszTXT_Click(sender As Object, e As EventArgs) Handles BTzapiszTXT.Click
        Dim Srednica, Dlugosc, Rozmiar, Liczba As Single
        Dim plik As String

        Try
            Srednica = CSng(TXTSrednica.Text)
            Dlugosc = CSng(TXTdlugosc.Text)
            Rozmiar = CSng(TXTrozmiar.Text)
            Liczba = CSng(TXTliczba.Text)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Try
            plik = "c:\Bosh\swieca1.txt"

            FileOpen(1, plik, OpenMode.Output)
            PrintLine(1, """Srednica gwintu""=" + TXTSrednica.Text)
            PrintLine(1, """Dlugosc gwintu""=" + TXTdlugosc.Text)
            PrintLine(1, """Rozmiar szesciokata""=" + TXTrozmiar.Text)
            PrintLine(1, """Liczba""=" + TXTliczba.Text)


        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub
End Class