Public Class Form1

    Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click
        Me.Close()
    End Sub

    Private Sub btCalcFat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcFat.Click
        Dim fats(100) As Integer
        Dim avgfats As Integer
        Dim numberoffats As Integer
        Dim totalfats As Integer
        If Not IsNumeric(tbEntery.Text) Then
            MsgBox("enter how fat you think that guy is")
            For Each fat As Integer In fats

            Next
        End If
    End Sub
End Class