Devi inserire la funzione nella classe che rappresenta la tua Form:
codice:
Imports System.IO
Imports System.Drawing 

public Class FormPrincipale
Sub AreaCerchio(ByVal Raggio As Double)
    MsgBox(CStr(Raggio * Raggio * 3.14))
End Sub
End Class