```vbscript

strNewString = Mid(strMyString, , InStr(, strMyString, ",") - ) & _

Mid(strMyString, InStr(, strMyString, ",") + )

```

或者

```vbscript

strNewString = Replace(strMyString, ",", "")

```

至于金融科技领域的信用评估模型构建，这是个非常复杂的话题。通常，这些模型会使用大量的数据，包括个人的财务信息、借款历史、职业状况等等，通过机器学习算法进行训练，以预测个人是否会按时偿贷款。