Public Class Form1

    Private Sub BtnOblicz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOblicz.Click
        Dim G As Single = CSng(TextBox1.Text)
        Dim O As Single = CSng(TextBox2.Text)
        Dim Ile As Integer

        Do While G < O
            G = G * 2
            Ile = Ile + 1

        Loop
        TextBox3.Text = Ile.ToString
    End Sub
End Class