型変換処理とラベル

質問

VB初心者です。何卒お助けください。
VB6.0であるアプリケーションを開発しています。
下記のソースで文字列で取得したparmを
数値に変換し、36文字以下か以上の比較をして
36文字なら以下ならLabel1(0).Captionにそのまま
入力。36文字以上ならLabel1(1).Captionに表記して
Label1(0).Captionにその後続く文字列をいれたいのですが
どのようなコードを書けばよいでしょうか？
何卒宜しくお願い致します。

Private Sub xxx(parm As String)
XXNO$ = parm　　　
If Label1(0).Caption = "" Then
Label1(0).Caption = XXNO$
If XXNO$ = 36 Then
Text1(0).Text = XXNO$
Else
For iii = 4 To 1 Step -1
　Label1(iii).Caption = Label1(iii - 1).Caption
Text1(iii).Text = Text1(iii - 1).Text
Next iii
Label1(0).Caption = XXNO$
Text1(0).Text = XXNO$
End If

回答No.1

redfox63 · ベストアンサー

質問内容とお示しのコードが 違うように見受けられます

パラメータで渡された文字列の長さを調べたいならば Len( または LenB)などを使うと思います

if Len(Param) >= 36 then
　　' 36文字以上の処理
else
　　' 36文字未満の処理
end if
といった具合になりますよ

お礼

早々のご回答ありがとうございます。
大変参考になりました。ありがとうございます。