VB 改行コード削除
officer
Private Sub xtxtLCNO_LostFocus()
'改行コード削除
Dim plLCNO
plLCNO = xtxtLCNO.Text
plLCNO = Replace(plLCNO, """", "")
plLCNO = Replace(plLCNO, vbCr, "")
plLCNO = Replace(plLCNO, vbLf, "")
plLCNO = Replace(plLCNO, vbCrLf, "")
xtxtLCNO.Text = plLCNO
End Sub
