主题：[求助]数值最后一位变化

怎么让最后一位变成我想要的数字，比如 我前一列中有个数字是1121 然后我后面一列想自动取值为1128，如果最后一位在1-7之间  我想全部变8，0.8.9不动，这个怎么写代码

If e.DataCol.name = "第一列" Then
    If e.NewValue = Nothing Then
        e.DataRow("第二列") = Nothing
    Else
        Dim s As String = e.NewValue.substring(e.newValue.length-1, 1)
        If val(s) <= 7 Then
            s = e.NewValue.substring(0, e.newValue.length-1)
            e.DataRow("第二列") = s & 8
        Else
            e.DataRow("第二列") = e.NewValue
        End If
    End If
End If