module里有
public sub
if a.text1.text=0 then
...

a窗体调用没问题，b窗体同样的，b窗体怎么调用？module里怎么写？

不太理解，各种参数我还不会灵活使用。
module里是：
Public Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 46 And InStr(1, aaaa.Text1.Text, ".") > 0 Then '这里把我难住了。。。。。
        KeyAscii = 0
    End If
End Sub

aaaa窗体Text1_KeyPress要用，bbbb窗体Text1_KeyPress也要用，怎么办？

再问下窗体里是这样写吗？参数啥的对吗？
Private Sub Text1_KeyPress(KeyAscii As Integer)
Call Module1.Text1_KeyPress(KeyAscii)
End Sub

类、对象、属性、事件、方法

我就是在实践中边运用边理解

a窗体，b窗体，c窗体都有：

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 46 And InStr(1, Text1.Text, ".") > 0 Then
        KeyAscii = 0
    End If
End Sub

为了减少代码，放到Module里，怎么写？我不会格式，理论我知道。

非常感谢这么详细的解答，原来不太会带参数，此回答将大大加深我对参数，传址，函数的理解。