VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式

下面是我的代码,你也可以优化一下.
Private Sub Command1_Click()
cmdlength = Text1.Text
If Len(Text1.Text) >= 3 Then
cmdmi = Mid(Text1.Text,1,Len(Text1.Text) - 2)
cmdfen = Mid(Text1.Text,Len(Text1.Text) - 1,1)
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
ElseIf Len(Text1.Text) = 2 Then
cmdmi = 0
cmdfen = Mid(Text1.Text,Len(Text1.Text) - 1,1)
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
ElseIf Len(Text1.Text) = 1 Then
cmdmi = 0
cmdfen = 0
cmdli = Mid(Text1.Text,Len(Text1.Text),1)
End If
Label1 = cmdmi & "米" & cmdfen & "分数" & cmdli & "厘米"
End Su