여러 TextBox에 숫자만 입력할 수 있도록 하기

안녕하세요, 챗지피티로 코드 긁어서 쓰는 초보입니다..

학교 담당자분들에게 통계자료를 받아야 하는데요, 엑셀이 익숙하지 않은 분들도 있을 것 같아서

사용자 정의 폼으로 조금 편하게 입력하실 수 있도록 틀을 만들고 있어요

문제의 본론으로 들어가면,

TextBox의 이름 앞 3글자가 '학급수, 학생수, 대기수' 인 경우에 숫자만 입력할 수 있도록

제한하고 싶은데요(숫자 외의 것을 입력하면 숫자만 입력 가능하다는 MsgBox도 출력되게요)

문제는 해당되는 TextBox가 18개라서, 코드를 좀 조건에 해당하는 경우에만 적용되게 예쁘게 만들고 싶었는데..

챗GPT가 불러주는 코드로는 잘 적용이 안되네요.. TextBox가 MultiPage안에 있어서 그런가 했는데 그것도 아닌거같구..

아래는 실패한 코드입니다.

고수님들의 고견 기다립니다!!!

Private Sub UserForm_Initialize()
Dim pg As Object
Dim ctl As Control

' 폼 전체 컨트롤을 순회
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
Call 숫자입력제한설정(ctl)
ElseIf TypeName(ctl) = "MultiPage" Then
' 멀티페이지 내부 컨트롤도 검사
For Each pg In ctl.Pages
Dim subCtl As Control
For Each subCtl In pg.Controls
If TypeName(subCtl) = "TextBox" Then
Call 숫자입력제한설정(subCtl)
End If
Next
Next
End If
Next
End Sub

' 특정 TextBox에 숫자 입력 제한 설정
Private Sub 숫자입력제한설정(ByVal ctl As Control)
Select Case Left(ctl.Name, 3)
Case "학급수", "학생수", "대기수"
ctl.OnKeyPress = "숫자입력제한"
End Select
End Sub

' 숫자 입력 제한 함수
Private Sub 숫자입력제한(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (KeyAscii >= 48 And KeyAscii <= 57) And KeyAscii <> 8 Then ' 숫자(0~9)와 백스페이스만 허용
KeyAscii = 0
End If
End Sub