Option Strict On
 
Public Class Form1
    Private WithEvents dgv As DataGridView
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        If DataGridView1.Rows(0).Cells(0).Value = 1 Then
            MessageBox.Show("Bla")
        Else
            MessageBox.Show("alsdfjlaksdjfklasdf")
        End If
    End Sub
End Class

Option Strict On
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
 
       Dim dr As Double
 
       dr = TextBox2.Text * 2
 
    End Sub