-----割左边第一个字符-----

Strings.Left(Trim$(vpSearchItem1), 1)

Select Case Strings.Left(Trim$(vpSearchItem1), 1)
Case "C"
lstStatus.Text = lstStatus.Items(0)
Case "O"
lstStatus.Text = lstStatus.Items(1)
Case "V"
lstStatus.Text = lstStatus.Items(2)
Case Else
lstStatus.Text = lstStatus.Items(0)
End Select