俺の仕事ってこんなかんじだ
この日本のどこかのわりと大きな工場の中にこんなプログラムが混ざってるんよ

'♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪
'♪
'♪ ∧＿∧　 ／￣￣￣￣￣￣￣￣￣
'♪ (´Д｀*)＜　COM_Fld_Tabix
'♪ （ 　　 ） ＼＿＿＿＿＿＿＿＿＿
'♪ ｜ ｜ |
'♪　 （_＿)＿）
'♪
'♪ 機能概要 指定されたﾃｷｽﾄﾎﾞｸｰｽが禿しく最大桁数入力されたらTABｷｰをｺｿｰﾘ押す
'♪-------------------------------------------------------------------------------
'♪ 呼出時パラメタ ： TEXTBOX ： ﾃｷｽﾄﾎﾞｸｰｽ
'♪-------------------------------------------------------------------------------
'♪ 変更履歴 ：　日付　時刻 担当者 更新内容/修正内容
'♪-------------------------------------------------------------------------------
'♪
'♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪♪
Public Sub COM_Fld_Tabix(ByVal objText As TextBox)
If objText.hwnd > 0 Then
If objText.MaxLength > 0 Then
If (SendMessage(objText.hwnd, EM_GETSEL, 0, 0) \ 65536 - 0) = _
objText.MaxLength Then
SendKeys "{tab}"
End If
End If
End If
End Sub

勹 廾 千 ュ ―言吾　←　これは今会社のＰＣのATOKに学習させてる．．．
（ ﾟДﾟ）y─┛~~ｱｼﾀﾓｳﾏｰ