>Dim result As Double
>    result = Total(Text1)

Dim result As Double
Dim cnt as Integer
    result = Total(Text1, cnt)




> Public Function Total(ByVal txt As TextBox) As Double
Public Function Total(ByVal txt As TextBox, ByRef Cnt As Integer) As Double


>    Dim value As Variant

この間に Cnt =0 を追加

>    For Each value In Split(txt.Text, vbCrLf)
>        Total = Total + Val(value)

この間に
If Value <> "" then
    Cnt = Cnt + 1
End If
などを追加

>    Next
>End Function

これでどうでしょう？