vba 챗gpt 있으니 그냥 뚝딱 만들어주네요 ㅎㅎ

Private Sub btnJoin_Click()

Join_Verification

End Sub

Sub Join_Verification()
' 회원테이블에 기존유저가 있는지 체크

' 회원테이블에 기존유저가 없을때만 생성하기
' 직원번호와 비밀번호 확인
Dim EndRow As Long ' 마지막 행
Dim i As Long
Dim isDuplicate As Boolean

With shtUser
EndRow = .Cells(.Rows.Count, 1).End(xlUp).Row

isDuplicate = False

For i = 1 To EndRow
If .Cells(i, 1).Value = Me.txtID.Value Then
MsgBox "중복값이 있습니다."
isDuplicate = True
Exit For
End If
Next i

If Not isDuplicate Then
' 로그인 성공
Join_Success
MsgBox "가입승인 요청해주세요"
Unload Me
End If
End With
End Sub

Sub Join_Success()
'변수설정
Dim WS As Worksheet
Dim EndRow As Long

'로그인실패시 기록시트에 기록 추가
With shtUser
EndRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(EndRow, 1) = Me.txtID.Value
.Cells(EndRow, 2) = Me.txtPW.Value
.Cells(EndRow, 7) = Now
.Cells(EndRow, 8) = "승인중"
End With

End Sub

와 대박 ㅎㅎ 로그인 과 회원가입 입력폼을 어떻게 나누면 좋을까요??