那么多的文本框？
你似乎应该使用文本框数组。

不然的话同样的代码，每个窗体里都得写。

Private Sub txtMsg_KeyPress(Index As Integer, KeyAscii As Integer)
    Select Case KeyAscii
        Case vbKeyReturn
            If Index < txtMsg.Count - 1 Then
                txtMsg(Index + 1).SetFocus
            Else
                txtMsg(0).SetFocus
            End If
    End Select
End Sub

谢谢楼上两位专家的解释

还有一个问题，请各位帮忙指导一下
就是
焦点在哪个文本框里，那个文本框的背景色变成红色
应该是怎样写的？？ 先谢谢大家

Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = vbRed

End Sub

Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = vbWhite

End Sub