VB .NET - Calcular a área de um círculo

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim area, raio As Double

        raio = Me.TextBox1.Text

        area = Math.PI * Math.Pow(raio, 2)

        MsgBox("A area do círculo de raio " & raio & " é igual a " & area)

    End Sub

Espero ter ajudado e att.