Right関数（またDRYじゃないコードを書いた）

VBA

ページ数を取得して、3桁にゼロ埋めで返すという処理を、いやいやながらも

Select case CInt(numString)
Case Is <= 0
Debug.Print "0以下でエラー"
Case Is < 10
retString = "00" & CStr(numString)
Case Is < 100
retString = "0" & CStr(numString)
Case 2 < 1000
retString = CStr(numString)
Case Else
Debug.Print "1000以上でエラー"
End Select

みたいなコードを書いた。

Select case CInt(numString)
Case Is <= 0
Debug.Print "0以下でエラー"
Case Is < 1000
retString = Right("00" & CStr(numString), 3)
Case Else
Debug.Print "1000以上でエラー"
End Select

ってやれば十分だった。深く反省。