Private Sub cmdAvr_Click()
Dim dblAvr As Double
dblAvr = (txtM1.Text + txtM2.Text + txtM3.Text + txtM4.Text + txtM5.Text + txtM6.Text + txtM7.Text + txtM8.Text + txtM9.Text + txtM10.Text + txtM11.Text + txtM12.Text) / 12
MsgBox ("平均は" & dblAvr & "人です。")
End Sub

平均はこれで出るようになりました
最大値はif分を使うようにらしいですが、107人より28人のほうが大きくなったりします
助けてください